home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d7 / commo452.arc / MACROS.TXT < prev    next >
Encoding:
Text File  |  1991-03-19  |  5.8 KB  |  142 lines
  1.                   ┌───────────────────────────┐
  2.                   │ Additional Macro Examples │
  3.                   └───────────────────────────┘
  4.  
  5. This file contains a number of sample macros.  Feel free to copy any of them
  6. to COMMO.MAC and to alter them to your own needs.  Additions will be made to
  7. this file as time permits.  Thanks to the users for their contributions.
  8.  
  9. {COMMO} macros can be made to do many amazing things besides just logging into
  10. BBS's and doing mail runs (those are indeed popular functions, however).  Some
  11. of the simplest macros demonstrate this capability.
  12.  
  13.  
  14.  The next two macros are used for reading messages.  They use the grey plus
  15.  and minus keys in the lower right corner of the keyboard. The first one sends
  16.  a <cr>, then clears the screen.  Makes messages a lot easier to read since
  17.  each one starts displaying at the top of the screen.  The second macro just
  18.  sends a <cr>.  Nice for keyboards without the extra enter key.
  19.  
  20.  Message reading macros
  21.  ───────────────────────────────────────────────────────────────────────────
  22.  {gr+}  {send |} {clear} {}
  23.  {gr-}  {send ^M} {}
  24.  
  25.  
  26.  Start my mail reader after a mail run
  27.  ───────────────────────────────────────────────────────────────────────────
  28.  {cF4}  {exen slmr} {}            SLMR
  29.  
  30.  
  31.  My generic login macro will login to most popular BBS's.  The generic login
  32.  subroutine can be called from mail run macros, etc.  The GOLOok with the
  33.  ";passwor" ignores the string "password" in the opening instructions on an
  34.  Auntie board.
  35.  
  36.  Generic login macro
  37.  ───────────────────────────────────────────────────────────────────────────
  38.  {...}  {capture y,c:\commo\commo.cap}      RBBS, PCBoard, Auntie, etc.
  39.         {asci ,} {call gls} {}
  40.  
  41.  Generic login subroutine
  42.  ───────────────────────────────────────────────────────────────────────────
  43.   {gls} {setlook 60,hng}
  44.   {li1} {golook li4,graphics}  {golook li2,first name}
  45.         {golook li3,last name} {golook li4,correct} {golook li1,;passwor}
  46.         {lookfor password}     {send ~#|} {return}
  47.   {li2} {send ~Fred|}      {goto li1}
  48.   {li3} {send ~Brucker|}   {goto li1}
  49.   {li4} {send ~y|}         {goto li1}
  50.  
  51.  
  52.  Motherboard mail run
  53.  ───────────────────────────────────────────────────────────────────────────
  54.  {mot} {capture y,c:\commo\mother.cap} {asci ,}
  55.        {setlook 90,hng} {lookfor (enter)=no} {send n q ns|}
  56.        {call gls} {setlook 60,hng,3,n|}
  57.        {lookfor board command?} {setlook 90,hng}  ═ turn off prompt timer
  58.        {send open 8|} {look markmail command?}
  59.        {ifexist c:\ul\julie.rep,,mb1} {send u|}
  60.        {lookfor ^xB01} {execute DSZ port %p sz -m %u\julie.rep}
  61.        {lookfor command?}
  62.  {mb1} {send dg|} {golook mb2,no messages found}
  63.        {lookfor ^xB00} {call .z.} {goto ncr}
  64.  {mb2} {send g|}
  65.  {ncr} {setlook 20} {lookfor no carrier} {return}
  66.  
  67.  
  68.  Here's my latest whizbang quoting macro.  It changes the Screen Image file to
  69.  a temporary file, then goes into Scrollback.  In Scrollback I write a block
  70.  of text to the Screen Image file (the quote), then exit.  My editor (QEdit)
  71.  is then executed on the temporary file.  I do what I need there to dress up
  72.  the quote (like add quoting marks, etc.).  When I save the file and exit the
  73.  editor, the macro does an ASCII Upload of the file, deletes it and restores
  74.  the Screen Image filename to what it was before.
  75.  
  76.  Quoting macro
  77.  ───────────────────────────────────────────────────────────────────────────
  78.  {cf6} {screen n,c:\dl\temp} {scroll} {exen q c:\dl\temp} {asci c:\dl\temp}
  79.        {exen del c:\dl\temp} {screen n,c:\commo\commo.scn} {}
  80.  
  81.  
  82.  The following macro can be executed from the command line with the switch
  83.  "/m=dda".  It will login to Directory Assistance RBBS, read and capture all
  84.  messages in the MAIN, COMMO and COMM conferences, download ANYFILE.ZIP, then
  85.  logoff.  After 50 dialing tries it will give up and beep twice.
  86.  
  87.    (put "dir" in the Dialing Directory macro field)
  88.  ───────────────────────────────────────────────────────────────────────────
  89.  {dda}  {mark direc} {dial 50,bp2} {alarm 3} {}
  90.  {bp2}  {beep} {beep} {}
  91.  
  92.  {dir}  {capture y,c:\commo\direc.cap} {asci ,:}
  93.         {setlook 60,hng,3,n|}
  94.         {lookfor first name?} {send Fred Brucker|~#|}
  95.         {call di1}
  96.         {setlook ,,3,|}
  97.         {call di2} {call di1}
  98.         {send j commo|}
  99.         {call di2} {call di1}
  100.         {send j comm|}
  101.         {call di2} {call di1}
  102.         {send j main|} {call di1}
  103.         {send d;anyfile.zip;z|}
  104.         {execute dsz port %p rz} {call di1}
  105.         {send g|} {capture n} {goto ncr}
  106.  
  107.  {di1}  {lookfor your command?} {return}
  108.  {di2}  {send r s c|} {lookfor [q]uit} {return}
  109.  
  110.  
  111.  This macro is a mini host mode.  It will answer on the first ring, send a
  112.  welcome message, wait for a password, then execute the batch file HOST.BAT.
  113.  When you exit back to DOS it will hang up and recycle for the next call.  A
  114.  simple version of HOST.BAT might be:
  115.  
  116.         ctty com%1
  117.         command
  118.  
  119.  Instead of CTTY you could use a program such as DoorWay by Marshall Dudley
  120.  (available as Shareware).
  121.  ───────────────────────────────────────────────────────────────────────────
  122.  {hos} {capture y,c:\commo\host.cap} {localecho y}
  123.  
  124.  {hs1} {setlook 0} {lookfor ring} {send ~~~ata|}
  125.        {golook hs2,CONNECT 1200}
  126.        {lookfor CONNECT 2400}
  127.        {parms 2400,8} {goto hs3}
  128.  {hs2} {parms 1200,8}
  129.  
  130.  {hs3} {pause 2}
  131.        {send ^L   Welcome!!!|^J^J   Enter password: }
  132.        {setlook 5,hs4}
  133.        {lookfor f} {send .}      Put your password here
  134.        {lookfor r} {send .}      (my password is "fred|", | is a cr)
  135.        {lookfor e} {send .}
  136.        {lookfor d} {send .}
  137.        {lookfor |}
  138.        {send |^J^J^J   Login complete.|^J^J   Calling host, please wait ...}
  139.        {execute c:\commo\host %p}
  140.  {hs4} {pause 1} {hangup y} {goto hs1}
  141.  
  142.